home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / sgwnd10 / frmtest9.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-07-24  |  3.0 KB  |  102 lines
  1. VERSION 5.00
  2. Begin VB.Form frmTest9 
  3.    AutoRedraw      =   -1  'True
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   3360
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   3504
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3360
  14.    ScaleWidth      =   3504
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.ComboBox cmbMessages 
  17.       Height          =   288
  18.       Left            =   900
  19.       Sorted          =   -1  'True
  20.       TabIndex        =   8
  21.       Text            =   "Combo1"
  22.       Top             =   120
  23.       Width           =   2472
  24.    End
  25.    Begin VB.CommandButton cmdSend 
  26.       Caption         =   "Send Message"
  27.       Height          =   372
  28.       Left            =   1980
  29.       TabIndex        =   7
  30.       Top             =   1380
  31.       Width           =   1392
  32.    End
  33.    Begin VB.TextBox txtLParam 
  34.       Height          =   288
  35.       Left            =   900
  36.       TabIndex        =   3
  37.       Top             =   960
  38.       Width           =   2472
  39.    End
  40.    Begin VB.TextBox txtWParam 
  41.       Height          =   288
  42.       Left            =   900
  43.       TabIndex        =   1
  44.       Top             =   540
  45.       Width           =   2472
  46.    End
  47.    Begin VB.Label lblResult 
  48.       Height          =   252
  49.       Left            =   900
  50.       TabIndex        =   6
  51.       Top             =   1440
  52.       Width           =   852
  53.    End
  54.    Begin VB.Label Label4 
  55.       Caption         =   "Result:"
  56.       Height          =   252
  57.       Left            =   120
  58.       TabIndex        =   5
  59.       Top             =   1440
  60.       Width           =   672
  61.    End
  62.    Begin VB.Label Label3 
  63.       Caption         =   "lParam:"
  64.       Height          =   252
  65.       Left            =   120
  66.       TabIndex        =   4
  67.       Top             =   1020
  68.       Width           =   732
  69.    End
  70.    Begin VB.Label Label2 
  71.       Caption         =   "wParam:"
  72.       Height          =   252
  73.       Left            =   120
  74.       TabIndex        =   2
  75.       Top             =   600
  76.       Width           =   732
  77.    End
  78.    Begin VB.Label Label1 
  79.       Caption         =   "Message:"
  80.       Height          =   252
  81.       Left            =   120
  82.       TabIndex        =   0
  83.       Top             =   180
  84.       Width           =   732
  85.    End
  86. Attribute VB_Name = "frmTest9"
  87. Attribute VB_GlobalNameSpace = False
  88. Attribute VB_Creatable = False
  89. Attribute VB_PredeclaredId = True
  90. Attribute VB_Exposed = False
  91. Option Explicit
  92. Private Sub cmdSend_Click()
  93.    Dim w As sgWindow.Window
  94.    Set w = frmMain.g_wndTest
  95.    If Len(txtWParam.Text) = 0 Then txtWParam.Text = "0"
  96.    If Len(txtLParam.Text) = 0 Then txtLParam.Text = "0"
  97.    lblResult.Caption = CStr(w.SendMessage(GetMessageCode(cmbMessages.Text), CLng(txtWParam.Text), CLng(txtLParam.Text)))
  98. End Sub
  99. Private Sub Form_Load()
  100.    FillMessages cmbMessages
  101. End Sub
  102.